There are three simple forms for creating a new mail message:
Memo
- Use this form to create a new message
Reply
- Use this form to reply to a message that you have received. This form will work only when you have selected a document to reply to.
Reply With History
- This is
similar to a Reply, except that a copy of the message being replied to will be automatically copied into your new message.
Before you send a message you must fill in the following information:
- The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
- Recipients who will receive a copy of the message, but are not usually required to take action on it.
bcc:
- Recipients who will receive a blind copy of this message.
You can send a message by choosing the "Send" action.
Calendaring and Scheduling
This database can also be used to organize your time, keep a list of tasks and meetings, and create the following kinds of information to share with other Mail users:
Calendar Entry -
Use the Calendar Entry form for both personal appointments and for scheduling meetings with people. Select the Invitation radio-button to schedule a meeting with others. You can send meeting announcements, select Required and Optional attendees, and find free time slots for the people whom you invite.
Link Message
- Use this form to send another Mail user a reference to a document. It is most useful when reading documents in a database that is shared with others on a server. For example, if you are reading a Discussion database and find a document that may be of use to someone else, creating a Link Message will allow that person to find the document very easily.
Phone Message
- Use this form to take a message for another Mail user.
Task (To Do)
- Use this form to remind yourself of something that you need to do, or to ask another person to do something for you. If you send a Task to another Mail user, or to several users, they will be able to notify you when they have completed the Task.
A special view (see below) has been provided to help you organize your Tasks and Tasks that you have assigned to other people.
A Calendar Profile will automatically be created for you with default settings. The Calendar Profile lets you decide who can view your free time schedule as well as define personal Calendar settings. Use Actions Calendar Tools Calendar Profile to change your Calendar Profile settings.
Folders and Views
The following views and folders are provided for you:
Inbox
Messages that have been sent to you by another Mail user will appear here.
Calendar -
This view looks like a desktop calendar. Appointments you have scheduled will be displayed in two day, one week, two week, or one month calendar pages.
Drafts -
Messages that you have created and saved, but have not yet sent, will appear here.
Sent
- Messages will appear here if you after you have sent them. You can decide whether you want messages saved here automatically or whether you should be asked before a message is saved.
Trash
- Messages that you have marked for deletion will appear here.
Tasks
- Tasks that you have created for yourself and Tasks that you have assigned to other people will appear here. This view will also help you keep track of which Tasks have been completed and when.
Meetings
- Invitations to meetings and responses that people have returned to you will appear here.
In addition, you can create your own folders and views to help organize your Mail database.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Body
@ @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
About the Mail Database
The Mail template is used to create a database to send and receive electronic mail using Notes. The template can be used to create a mail database either on a local workstation or on a server. Mail databases created from this template are best used by Notes, Intranet or Internet Clients.
The Mail template also contains Calendaring and Scheduling features which can be used for personal time management, meeting and appointment scheduling, or to delegate work to other people. The Calendar View provides a desktop calendar for ease in viewing scheduled appointments.
Please consult Help/Help Topics for more information on how to use the features of the Mail template.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
<:H8&k
$Info
$Body
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
@bAjZ4`
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class DelegationACLManager
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const READWRITE=&h010&
Const CANDELETE = &h100&
Const READPUBLIC= &h200&
Const WRITEPUBLIC= &h400&
Const NO_UPDATE_MANAGER = 37
Const NO_UPDATE_ACL = 42
Const NO_UPDATE_OWNER = 68
Const NO_ACL_REFERENCE = 69
Const ERROR_ADMINP = 72
Const OWNER_IS_FLAT = 71
Const WINDOW_TITLE = 61
Class DelegationACLManager
Public StringTable As MailToolsStringTable
Private session As notessession
Private note As notesdocument
Private acl As notesacl
Private aclentry As notesaclentry
Private name As notesname
Private agentDelegateAgent As notesagent
Private ReadCal() As String
Private WriteCal() As String
Private ReadMail() As String
Private WriteMail() As String
Private EditMail() As String
Private DeleteMail() As String
Private OtherUsers() As String
Private AddedUsers() As String
Private DeletedUsers() As String
Private OriginalOwner As String
Private AdminServer As String
Private DefaultPublicReader As Integer
Private DefaultPublicWriter As Integer
Private MustDelegate As Integer
Private ACLIsDirty As Integer
Private nSuccess As Integer
Private x As Integer
Private CanChangeOwner As Integer
Private nIsWebClient As Integer
Private strWEBSubmission As String
Private strDefaultAccessName As String
Sub New(note As notesdocument)
Set Me.StringTable = New MailToolsStringTable
Set Me.session = New notessession
Set Me.acl = note.parentdatabase.ACL
Set Me.note = note
Me.note.autoreload = False
Me.strDefaultAccessName = ""
OriginalOwner = Me.note.GetItemValue("Owner")(0)
Set Me.aclentry = Me.acl.GetEntry(Me.session.Effectiveusername)
If Me.aclentry Is Nothing Then
Set Me.name = New NotesName(Me.session.Effectiveusername)
Set Me.aclentry = Me.acl.GetEntry(Me.name.Common)
End If
If Me.aclentry Is Nothing Then
'user not in ACL?
Call RaiseUIError(NO_ACL_REFERENCE)
End
Elseif Me.aclentry.level < ACLLEVEL_MANAGER Then
If Me.note.hasitem("Owner") Then
If Not NameCompare(Me.OriginalOwner,Me.session.Effectiveusername) Then
Me.CanChangeOwner = False
Else
Me.CanChangeOwner = True
End If
Else
Me.CanChangeOwner = True
End If
Me.MustDelegate = True
Elseif Me.aclentry.level = ACLLEVEL_MANAGER Then
Me.CanChangeOwner = True
End If
End Sub
Public Function Init()
Call GetDefaultAccess()
Call GetAclEntries()
Call ValidateAdminServer()
End Function
Property Set IsWebClient As Integer
Me.nIsWebClient = IsWebClient
End Property
Property Set DelegateUsingAdminP As Integer
Me.MustDelegate = DelegateUsingAdminP
End Property
Private Function InvokeAdminP() As Integer
Dim vHomeServer As Variant
Dim vSuccess As Variant
If Me.nIsWebClient Then
Redim vHomeServer(0)
vHomeServer(0) = Me.session.Username 'the context of the server running the agent
@SetField("$DatePickerMonth";1)' -> set to current month
%END REM
End Sub
Lotus Product
OBJECT
CalendarOutline
CalendarOutlineNotesView
vspacer.GIF
out_Month
$DatePickerMonthV
1S2S
out_rMonth
$DatePickerMonthV
1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
!6B}Z
[#X`:`9
fpFZb6O
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$PublicAccess
"Small Fonts
Lotus Product
Calendar Switcher
GIF89a
Yyx7`^8a_
```OOO///
r@ jT
&4jtQN=
lo3gU
.,+Ve
ToDoFrameset_1TARGET="_top"
ToDoFS
Open To Do frameset
MailFrameset_1TARGET="_top"
MailFS
Open Mail frameset
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
Lotus Product
Calendar Title
Calendar
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Hrk?JIG
~KVX=
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
(GIF89a
P 5 BUIBT
Q e\@
]M.<x
+^@pc^-
[{#A@
)v>Dj
`MWz
,C'*P_
V:G R
4-^Ui
BnTQ
,{;/"
9XDET
S nRf
4'\`\
#s`PD
*BV.WV
(p%~*
tYEDZU%s0
[CikP
wJ0eo
M5v#b
5w0R"
[X <7
W+hP D
@.naG+6
I<<\4
4L,@<8
,,>@,
6!$T$
\DD($$ 4
q@Jd,R
d.&=rL
,t`1.
[k%bC
N1dhv
![d1I
(v6(X
@6b#}
1(.=']
auapIU
*jfbT
B>yA,hA
dTp%N
P"AnD
e2^Y2:FC
CT^"D`
]0A#`O
S#LF!
/E<F_d
U<I`]
Eo$J*tE2
;DOpk
AtTBX\
.8d!@B
x%I,YM
!hPR;R$
BLX$%
+!1G X
JTrE!kqaEG
Yp|8B
p z(
AH@O3P
S'7HRF
` 8<P,
5j"0'
pso}S
wZ-\:
Q"8PY
`V SC
O{#/i%
EB6E0F
E|PG58
;0wr 6
()E=wd-M
1^K@_h
cG#6i
=pCI@
#!#cV
Ipas
t&b9n
Y:2wE
'ibLt
)OcPX@
$"$I@
"bj&" h
Mg-="@
{$ZpZ
}`.<B
#'z:8
,/FPqv'3
YU(U>s-I_c
}sqL$
9 lQAD
)wp b
I`RxF
&-iS@
}<WAF
d%5(p
|d#^V
`hR"0d
t4S!7tI
DZhAe
"Bc&h
6-!@Rg
(p"y!
F,HX"
KZDI]
`q9$9
ynZH|
A~ CB
B8WWX
(Z%|B
yB'|zK(
=P<"4A
,)5ss
k>M;
4XT`
LXD=h
#/|E@X
46L$2
Q`.YV
8G -T
kKcjB
EA$,C5l
BBa,U h
J$'bD
e4dq
8KE"b
k!P$Q+
>a'g
a8;JB>
Cp*Mq
\E"O1:
FxCup
@I\Gd'
paHs
Z1ORp
3yrzy
4>r`D
1/\0m
Xlg .
0$rN7D
iaA;8Qcs
AzXw0z
K8LRR8;`
AS`+(
%0Z[s
x$ (/
|S _
0Eoj!
sq(n
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
}(BLf
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
Calendar Title
NotesNavigatorNotesView?
Calendar Picker?
Switcher
Calendar Switcher?
NotesViewNotesPreview?
($Calendar)|Calendar
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$PublicAccess
$FrameSet
Calendar
($Calendar)|CalendarH
Meetings
($Meetings)|MeetingsH
Group Calendars
Group Calendars|(GroupCalendarFolder)?H
Trash
($Trash)
Trash
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$SiteMapList
(GIF89a
HB22C
NYJN>"
72<(5cLu
hU)US
kMkU7
ftM|bvB
}]Ml0c
uCqmn
{=L.G9~
q?yzsmo
G\iwH
W`!3'
h$w['
*Gh%T(&
r*|&*\
jbJD&4d
Y7wE5wY
)>%o^i
^:&\:fb)
@++cf:%
io!u@
qj.M#Oa
- z6b
BIxMJa
URX"5
%(q<s
.<&2gJ
8D'?-
i3C[v
i7K=}
$]sn)
Y4?:n.
{>xJ0
y/yi&V?
Ep 6g
e<LHLHX^8
.xdn-7
GuE9$
{`gwx
w~wukW^
M&vvO
uy?ht
w~(Uh
m)k y
(u$)#
E\1i>
k\(8f 1
Qxa8%'
Q.U)6
4%C?}n
7^|Q?-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$TITLE
$PublicAccess
$ImageData
$ImageNames
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class BaseApplication
Declare Class BaseCSStringTable
Declare Class BaseEventOwnerStringTable As BaseCSStringTable
Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
Declare Class BaseEventParticipantStringTable As BaseCSStringTable
Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
Declare Class MessageTrackStringTable
Declare Class MailToolsStringTable
Declare Class MemoStringTable
Declare Class CopyFactory
Declare Class BaseNoteCopy
Declare Class MemoCopy As BaseNoteCopy
Declare Class CalendarCopy As BaseNoteCopy
Declare Class TaskCopy As BaseNoteCopy
Declare Class GroupCalendarCopy As BaseNoteCopy
Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
Declare Function NAMEGetNumOrgUnits(sName) As Integer
Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
Declare Function CSGetMailFileOwner() As String
Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
Declare Function CSEventDTItemsModified(vBEObject As Variant) As Integer
Declare Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
Declare Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
Declare Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
Declare Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
Declare Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
Declare Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
Declare Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
Declare Sub wInstantiateObjectVariables
Declare Sub wMessagePageHeader
Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
Declare Function wGetDBPath As Variant
Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
Declare Sub wMarkTempFields(doc As NotesDocument)
Declare Sub wCreateDefaultCalendarProfile
Declare Function wGetCalendarProfile As Integer
Declare Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
Declare Function CSGetMainEventObject(vBEObject As Variant) As Variant
Declare Sub Initialize
Declare Function CSNoteGetType(note As notesdocument) As Integer
Declare Function CSProfileGetAutoAnnivRepeat() As Integer
Declare Function CSEventPerformAction(vBEObject As Variant, Byval strAction As String, Byval bSendNow As Integer, vArgs As Variant) As Integer
Declare Function CSEventPerformActionGuts(vBEObject As Variant, strAction As String, bSendNow As Integer, vArgs As Variant) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Class MeetingOwnerStringTable As BaseEventOwnerStringTable
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case ENTRY_TYPE
GetString = "Changing the entry type will cancel this meeting. Change anyway?"
Case ENTRY_DTMOD
GetString = "Are you sure you want to change the date/time of this entry?"
Case ENTRY_PAST
GetString = "This entry is being created in the past. Create anyway?"
Case DTMOD_TITLE
GetString = "Change date/time"
Case RESC_UPD_MSG
GetString = "An update notice will be sent to the participants and any rooms/resources you may have requested informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
Case SEND_INV_MSG
GetString = "Do you want to send meeting invitations to the appropriate users?"
Case SEND_INVRES_MSG
GetString = "Do you want to send meeting invitations and reservation requests?"
Case SEND_INV_TITLE
GetString = "Send Invitations"
Case VIEWSTATUS_NOMEMBERS_PROMPT
GetString = "There are no invitees to view the status of at this time."
Class TaskOwnerStringTable As BaseEventOwnerStringTable
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case ENTRY_TYPE
GetString = "Changing the entry type will cancel this to do. Change anyway?"
Case ENTRY_DTMOD
GetString = "Are you sure you want to change the date this to do is due?"
Case ENTRY_PAST
GetString = "This to do is being created in the past. Create anyway?"
Case SEND_INV_MSG
GetString = "Send to do assignments to the appropriate users?"
Case SEND_INV_TITLE
GetString = "Send Assignments"
Case RESC_UPD_MSG
GetString = "An update notice will be sent to all participants of this to do informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
Case VIEWSTATUS_NOMEMBERS_PROMPT
GetString = "There are no participants to view the status of at this time."
Class MeetingParticipantStringTable As BaseEventParticipantStringTable
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case RESC_MSG ' Reschedule notice
GetString = "This meeting has been rescheduled. Would you like to open the reschedule notice?"
Case CANCEL_MSG
GetString = "This meeting has been cancelled." ' Message that appears for all cancellation notices
Case CANCEL_UPD
GetString = Me.GetString(CANCEL_MSG, Nothing) & " The calendar entry will be updated to reflect this change." ' User accepted main invitation that is now cancelled
Case CANCEL_NOACTN
GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action." ' The main invitation has not been accepted
Case ADD_TITLE
GetString = "Add to Calendar"
Case STATUS_REMOVED
GetString = "You are no longer required to attend this meeting. Your calendar will be updated to reflect this."
Case STATUS_REQUIRED
GetString = "You are required to attend this meeting. Your calendar will be updated to reflect this."
Case ERR_BROADCAST
GetString = "The chairperson of this meeting does not require replies. Select Participant Actions / Accept to add this to your calendar."
Case ERR_NO_DELEGATE
GetString = "The chairperson of this meeting has prevented delegation. Please select a different action."
Case ERR_NO_PROPOSE
GetString = "The chairperson of this meeting has prevented proposals. Please select a different action."
Class TaskParticipantStringTable As BaseEventParticipantStringTable
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case RESC_MSG ' Reschedule notice
GetString = "The due date for this to do has been changed. Would you like to open the update notice?"
Case CANCEL_MSG
GetString = "This to do has been cancelled." ' Message that appears for all cancellation notices
Case CANCEL_UPD
GetString = Me.GetString(CANCEL_MSG, Nothing) & " The to do entry will be updated to reflect this change." ' User accepted main invitation that is now cancelled
Case CANCEL_NOACTN
GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action." ' The main invitation has not been accepted
Case STATUS_REMOVED
GetString = "You are no longer assigned to this To Do item. Your To Do list will be updated to reflect this."
Case STATUS_REQUIRED
GetString = "You are required to complete this To Do item. Your To Do list will be updated to reflect this."
Case ERR_BROADCAST
GetString = "The owner of this to do does not require replies. Select Participant Actions / Accept to add this to your to do list."
Case ERR_NO_DELEGATE
GetString = "The owner of this to do has prevented delegation. Please select a different action."
Case ERR_NO_PROPOSE
GetString = "The owner of this to do has prevented proposals. Please select a different action."
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case TRACKING_STRING+1
GetString = "UNKNOWN "
Case TRACKING_STRING+2
GetString = "In Que "
Case TRACKING_STRING+4
GetString = "DELIVERED "
Case TRACKING_STRING+8
GetString = "DELIVERY FAILED "
Case TRACKING_STRING+16
GetString = "TRANSFERED "
Case TRACKING_STRING+32
GetString = "TRANSER FAILED "
Case TRACKING_STRING+64
GetString = "GROUP EXPANDED "
Case TRACKING_STRING+65
GetString = "Message Tracking"
Case TRACKING_STRING+66
GetString = "Please select recipient(s) to track."
Case TRACKING_STRING+67
GetString = "You may only track messages that you have sent."
Case TRACKING_STRING+68
GetString = "No recipient(s) were selected"
Case TRACKING_STRING+69
GetString = "No valid recipients could be located to track."
End Select
End Function
End Class
Class MailToolsStringTable
Function GetString (nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case TOOL_STRING
GetString = "Unable to locate your Name & Address Book. Names not added."
Case TOOL_STRING+1
GetString = Str(vData) + " name(s) processed."
Case TOOL_STRING+2
GetString = Str(vData) + " name(s) added to your personal address book."
Case TOOL_STRING+3
GetString = Str(vData) + " name(s) not added; already in your personal address book."
Case TOOL_STRING+4
GetString = "Error adding name(s) to personal address book: " + Str(vData)
Case TOOL_STRING+10
GetString = "Unable to create a calendar entry for your time off."
Case TOOL_STRING+11
GetString = "An Out of office document has been added to your Calendar."
Case TOOL_STRING+12
GetString = "Would you like to create an Out of Office Calender entry?"
Case TOOL_STRING+13
GetString = "Welcome Back! Please disable your Out of Office Agent. To disable the agent, " & _
"Open your Out of Office profile and select the 'Disable' button." & Chr(13)_
& "While you were out, the 'Out of Office' agent notified the following people of your absence." & Chr(13)
Case TOOL_STRING+14
GetString = "Welcome Back! Please disable your Out of Office Agent. To disable the agent, " & _
"Open your Out of Office profile and select the 'Disable' button." & Chr(13) &_
"While you were out, your Out of Office Agent did not notify anyone of your absence."
Case TOOL_STRING+15
GetString = "Welcome Back!"
Case TOOL_STRING+16
GetString = "This is a repeat reminder! Please disable your Out of Office Agent. To disable the agent, " & _
"Open your Out of Office profile and select the 'Enable/Disable' button."
Case TOOL_STRING+17
GetString = "Out of Office Profile ERROR"
Case TOOL_STRING+18
GetString = "ERROR: You must create an Out of Office profile BEFORE running your Out of Office Agent."
Case TOOL_STRING+19
GetString = "ERROR: You must enable your Out of Office profile BEFORE running your Out of Office Agent."
Case TOOL_STRING+31
GetString = " can already read mail."
Case TOOL_STRING+32
GetString = " can already send mail."
Case TOOL_STRING+33
GetString = " can already edit documents."
Case TOOL_STRING+34
GetString = " can already manage the calendar."
Case TOOL_STRING+37
GetString = vData & Chr(13) & "Managers and Designers cannot be modified using the Delegation Profile."
Case TOOL_STRING+38
GetString = "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
Case TOOL_STRING+39
GetString = "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
Case TOOL_STRING+40
GetString = Str(vData) & " is currently a Manager of this database."
Case TOOL_STRING+41
GetString = Str(vData) & " is currently a Designer of this database. "
Case TOOL_STRING+42
GetString = "You do not have the priviledge to change the ACL settings in this database."
Case TOOL_STRING+43
GetString = "Reminder Please Turn Off your Out Of Office Agent"
Case TOOL_STRING+44
GetString = "Your Out of Office agent is still enabled."
Case TOOL_STRING+45
GetString = "Please ask a Manager or Designer of this database to disable the agent for you."
Case TOOL_STRING+46
GetString = "Lotus Notes Out of Office"
Case TOOL_STRING+47
GetString = "Your 'Out of Office' agent is currently enabled."
Case TOOL_STRING+48
GetString = "Do you want to disable it ?"
Case TOOL_STRING+49
GetString = "Your Out of Office has been disabled."
Case TOOL_STRING+50
GetString = "Please ask a Manager or Designer of this database to enable the agent for you."
Case TOOL_STRING+51
GetString = "Your current location doesn't have a 'Mail Server' specified."'
Case TOOL_STRING+52
GetString = "Please edit your current record and specify your Mail Server."
Case TOOL_STRING+53
GetString = "The Out of Office agent is now enabled to run on the following server: "
Case TOOL_STRING+54
GetString = "When people send you mail between "
Case TOOL_STRING+55
GetString = " and " & vData & " it will inform them of your absence."
Case TOOL_STRING+56
GetString = "The Out of Office agent was not enabled."
Case TOOL_STRING+57
GetString = "You must indicate when you are leaving and when you will be back."
Case TOOL_STRING+58
GetString = "Your return date must be after today's date."
Case TOOL_STRING+59
GetString = "Your return date cannot be earlier than the leave date."
Case TOOL_STRING+60
GetString = "Your return date must be after your leave date."
Case TOOL_STRING+61
GetString = "Preferences"
Case TOOL_STRING+62
GetString = "Add sender to address book"
Case TOOL_STRING+63
GetString = "A contact with your name should not be added to your address book." & Chr(13) & "Continue adding this entry?"
Case TOOL_STRING+64
GetString = Cstr(vData) & " conflicts"
Case TOOL_STRING+65
GetString = "Are you sure you wish to exit without enabling your Out of Office agent?"
Case TOOL_STRING+66
GetString = "Do you wish to disable 'Busy Time' for your 'Out of Office' calendar entry?"
Case TOOL_STRING+67
GetString = "Unable to disable 'Busy Time' for your 'Out of Office' calendar entry." & Chr(13) & "Entry not found."
Case TOOL_STRING+68
GetString = "Only the Owner or a Manager may modify the value of 'Owner'"
Case TOOL_STRING+69
GetString = "Your name cannot be found in the ACL, please contact your administrator."
Case TOOL_STRING+70
GetString = "You do not have sufficient rights to edit preferences for this database"
Case TOOL_STRING+71
GetString = "The 'Owner' of a mail file should be specified in 'Hierarchical' format." & Chr(13) & "i.e. John Doe/MyDomain"
Case TOOL_STRING+72
GetString = "Error creating AdminP request, please contact your administrator"
Case TOOL_STRING+73
GetString = "No valid documents were selected, 'From' field is required"
Case TOOL_STRING+74
GetString = "Would you like to modify the archive settings?"
Case TOOL_STRING+75
GetString = "Archive"
Case TOOL_STRING+76
GetString = "Do you wish to archive the " & Cstr(vData) & " selected documents now?"
Case TOOL_STRING+77
GetString = "Do you wish to archive now?"
Case TOOL_STRING+78
GetString = "You must choose 'Enable scheduled local agents' on the 'Basics' tab of the 'User Preferences dialog' before this change will take effect."
Case TOOL_STRING+79
GetString = "This must be a local database to activate local scheduled archiving."
End Select
End Function
End Class
Class MemoStringTable
Function GetString(nIndex As Integer, vData As Variant) As String
Select Case nIndex
Case MEMO_STRING ' task notification mail message
GetString = "Notfication has been sent to "
Case MEMO_STRING+1 ' name a stationery document
GetString = "What would you like to call this stationery?"
Case MEMO_STRING+2
GetString = "This action cannot be performed on a new document."
Case MEMO_STRING+3
GetString = "Please select one document before executing this command."
Case MEMO_STRING+4 ' user trying to copy a document that has the prevent copy bit set
GetString = "This document is prevented from being copied. The body will not be copied into the new document."
Case MEMO_STRING+5
GetString = "Mail Schedule Profile not found. You must define your Mail schedule profile before you can schedule a document."
Case MEMO_STRING+6
GetString = "Your Mail Scheduler agent is currently disabled. The agent must be enabled before you can schedule a document."
Case MEMO_STRING+7
GetString = "Unable to locate your mail schedule profile. A mail schedule profile must exist in your database before you can schedule a document."
Case MEMO_STRING+8
GetString = "Your Mail scheduling profile is not configured to run the Notes mail scheduler. You must set the current status to enabled in order to schedule a document."
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
If nInt1 < nInt2 Then
Min = nInt2
Else
Min = nInt1
End If
End Function
Lotus Product
.P-P-
-l)l)
'<*<*X'X'
|0|08.8.
(h.h.
, , ,
%t%t%
0$2$2$2
\4 +t
'#,$'}
,X'}0
,<)}L
,<)}L
,<)}p
)K4 -
,<)}@
-`*#8m
-l)#8
-`*#8\
,X'}x
^ ,HT
K ,,X'}
'#-0,#
,d,FT,
,<)}h
,<)}L
,<)}p
,P-}d
,P-}d
,P-}d
,P-}d
,<)}h
,P-}d
-`*#8
K4 ,8.}@
K4 ,h.}@
-<*#8
,X'}p
,<)}p
,<)}p
,<)}
,<)}H
,<)}l
),#K
-H0#
!,<)}4
!-<*#K
!,X'}
!,X'}X
!,<)}X
!,<)}
#5l0/
%,|0},
Kt%-(1#
%Kt%-
$,$2#
EnterCopyTo
0S0E
0S0E
0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
A]_.=1(E\D
$TITLE
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventObject
Declare Sub Initialize
Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime, nOptions As Integer) As Integer
Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
Declare Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
Declare Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String, nNoCancelOp As Integer) As Integer
Declare Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
Declare Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
Declare Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
Declare Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim autoAdjustNote As NotesDocument
Dim autoAdjustEndDateTime As NotesDateTime
Dim autoAdjustTimeWindow As Long
Class UIEventObject
m_ws As NotesUIWorkspace
m_noteStatus As NotesDocument
m_beobject As Variant
m_strtable As Variant ' This is a reference to the backend objects StringTable
m_lAction As Long ' These are OR'd together
m_bSendComments As Integer
m_nEventType As Integer
m_bOwner As Integer
Property Get ActionInProgress As Long
ActionInProgress = m_lAction
End Property
Property Set ActionInProgress As Long
' If the caller passes ACTION_NONE, remove all existing actions set
Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String, Byval nOptions As Integer) As Integer
Dim note As NotesDocument
Dim fHideCancel As Integer
Set note = m_beobject.Document
Select Case lAction
Case ACTION_ACCEPT
Call note.replaceitemvalue("tmpActionType","A")
Case ACTION_DELEGATE
Call note.replaceitemvalue("tmpActionType","D")
Case ACTION_COUNTER_PROPOSE
Call note.replaceitemvalue("tmpActionType","T")
Case ACTION_RESCHEDULE
Call note.replaceitemvalue("tmpActionType","U")
Case ACTION_CANCEL
Call note.replaceitemvalue("tmpActionType","C")
Case ACTION_CONFIRM
Call note.replaceItemValue("tmpActionType","N")
Case ACTION_COMPLETED
Call note.replaceitemvalue("tmpActionType","F")
Case ACTION_COUNTER_ACCEPT
Call note.replaceitemvalue("tmpActionType","B")
Call note.removeitem("StartDate")
Case ACTION_COUNTER_REJECT
Call note.replaceitemvalue("tmpActionType","J")
Case ACTION_REFRESHINFO
Call note.replaceitemvalue("tmpActionType","E")
Case ACTION_REMOVE_PEOPLE
Call note.replaceitemvalue("tmpActionType","5")
Case Else
Call note.RemoveItem("tmpActionType")
End Select
If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
'++LotusScript Development Environment:2:1:CSEventDisableWorkflow:1:8
Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
' Return -1 to bail, 0 to do nothing, 1 to cancel
Dim vBEObject As Variant
Dim strOriginalType As String, strCurrentType As String
Set vBEObject = vUIobject.BEObject
strOriginalType = vBEObject.OriginalType
strCurrentType = vBEObject.CurrentType
If (strOriginalType = strWorkflow) And (strCurrentType <> strWorkflow) Then
' Make sure we have participants before asking
If (vBEObject.WasMailed) Then
If (YesNoPrompt(vuiobject.StringTable.GetString(ENTRY_TYPE, Null),vuiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
If (vuiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 1)) Then
CSEventDisableWorkflow = 1
Else
CSEventDisableWorkflow = -1
End If
Else
CSEventDisableWorkflow = -1
End If
End If
End If
End Function
'++LotusScript Development Environment:2:2:AutoAdjustWindowEntering:1:8
Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
'++LotusScript Development Environment:2:2:AutoAdjustWindowExiting:1:8
Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
'++LotusScript Development Environment:2:2:GetAutoAdjustDateTime:1:8
Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventDocument
Declare Sub Initialize
Declare Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const UI_FLAG_REPEAT = &h00000001
Const UI_FLAG_ALARM = &h00000002
Const UI_FLAG_WASSAVED = &h00000004
Const UI_FLAG_DONOTCLOSE = &h00000008
Class UIEventDocument
m_uidoc As NotesUIDocument
m_uiobject As UIEventObject
m_lFlags As Long
m_EntryType As String
' Properties
Property Get UIObject As Variant
Set UIObject = m_uiobject
End Property
Property Get UIDocument As NotesUIDocument
Set UIDocument = m_uidoc
End Property
Property Get WasSaved As Integer
WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
End Property
Property Set WasSaved As Integer
Call Me.SetFlag(UI_FLAG_WASSAVED, WasSaved)
End Property
Property Get DoNotClose As Integer
DoNotClose = ((m_lFlags And UI_FLAG_DoNotClose) = UI_FLAG_DoNotClose)
End Property
Property Set DoNotClose As Integer
Call Me.SetFlag(UI_FLAG_DONOTCLOSE, DoNotClose)
End Property
Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
Set m_uidoc = source
Set m_uiobject = New UIEventObject(nType, bOwner)
End Sub
Sub PerformActionAndClose(vData As Variant, Byval iTitle As Integer, Byval dAction As Long, strDlg As String, Byval dOptions As Long)
If m_uiobject.OkToPerformAction(vData, iTitle,dAction,strDlg,dOptions) Then
If Not m_uidoc.editmode Then m_uidoc.editmode = True
Call m_uidoc.reload
On Error Goto errorroutine
Call m_uidoc.save
Call m_uidoc.close
End If
Exit Sub
errorroutine:
Exit Sub
End Sub
Sub SetFlag(Byval lFlag As Long, Byval bAdd As Integer)
If (bAdd = True) Then
m_lFlags = m_lFlags Or lFlag
Else
If (m_lFlags And lFlag) Then m_lFlags = m_lFlags Xor lFlag
End If
End Sub
Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
Dim vBEObject As Variant, vSelectedDT As Variant
Dim ws As New notesuiworkspace
Dim note As NotesDocument, notetmp As NotesDocument
Dim item As NotesItem
Dim dtCalDate As NotesDateTime
Dim bNeedsDate As Integer
m_uidoc.AutoReload = False
Set note = m_uidoc.document
Set vBEObject = m_uiobject.BEObject
Set dtCalDate = m_uiobject.CSEventGetCalendarInstance(bNeedsDate, note, False)
If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
If (m_uiobject.EventType <> 3) Then
If (m_uiobject.IsOwner And vbeobject.Context <> CTX_REPEAT_MAIN) And NAMECompare(note.getitemvalue("Principal")(0), vBEObject.CalendarProfile.OwnerName) Then m_uidoc.EditMode = True
End If
m_entrytype = vBEObject.CurrentType
End If
End Sub
Sub PostRecalc()
Dim note As NotesDocument
Dim bRefreshHide As Integer
Set note = m_uidoc.document
If (note.GetItemValue("Repeats")(0) = "1") Then
If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
If m_uiobject.RepeatDialog() Then
m_lFlags = m_lFlags Or UI_FLAG_REPEAT
Call note.removeitem("tmpDoNotRepeat")
Else
Call note.replaceitemvalue("Repeats","")
Call note.removeitem("OrgRepeat")
Call note.removeitem("RepeatDates")
Call note.replaceitemvalue("tmpDoNotRepeat","1")
bRefreshHide = True
End If
End If
Elseif (m_lFlags And UI_FLAG_REPEAT) Then
Call note.replaceitemvalue("Repeats","")
Call note.removeitem("OrgRepeat")
Call note.removeitem("RepeatDates")
Call note.replaceitemvalue("tmpDoNotRepeat","1")
m_lFlags = m_lFlags Xor UI_FLAG_REPEAT
bRefreshHide = True
Else
If note.getitemvalue("AppointmentType")(0) = "1" And CSProfileGetAutoAnnivRepeat() > 0 Then
If Not(note.hasitem("tmpDoNotRepeat")) Then
Call note.replaceitemvalue("Repeats","1")
m_lFlags = m_lFlags Or UI_FLAG_REPEAT
bRefreshHide = True
End If
End If
End If
If m_entryType <> m_uiobject.BEObject.CurrentType() Then
m_lFlags = m_lFlags And Not(UI_FLAG_ALARM)
m_entryType = m_uiobject.BEObject.CurrentType()
If note.HasItem("$Alarm") And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then
Call note.RemoveItem("$Alarm")
End If
Call m_UIObject.BEObject.SetDefaultAlarm()
If (note.HasItem("$Alarm")) Then
If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
' If we have a $Alarm, but not Offset or Time, then this is the default alarm; enable settings
Call note.replaceitemvalue("Alarms","1")
m_lFlags = m_lFlags Or UI_FLAG_ALARM
bRefreshHide = True
Else
m_lFlags = m_lFlags Or UI_FLAG_ALARM
End If
End If
End If
If (note.GetItemValue("Alarms")(0) = "1") Then
' The user clicked on the alarms checkbox to enable them
' The user clicked on the alarms checkbox to enable them
Call note.removeitem("$AlarmDisabled")
If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
If m_uiobject.AlarmDialog() Then
Call note.replaceitemvalue("$Alarm",1)
m_lFlags = m_lFlags Or UI_FLAG_ALARM
Else
Call Me.RemoveAlarmSettings(False)
m_lFlags = m_lFlags And Not( UI_FLAG_ALARM)
bRefreshHide = True
End If
End If
Elseif (m_lFlags And UI_FLAG_ALARM) Then
' The user is removing the alarm
Call Me.RemoveAlarmSettings(False)
bRefreshHide = True
End If
If (bRefreshHide) Then
Call m_uidoc.refreshhideformulas
Call m_uidoc.reload
End If
End Sub
Sub QuerySave(bContinue As Variant)
Dim vBEObject As Variant
Dim note As NotesDocument
Dim dtStart As NotesDateTime, dtEnd As notesDateTime
Dim item As NotesItem
Dim sCurrentType As String, soriginalType As String, strCategory As String, strWorkflow As String
Dim strAction As String, strNoticeType As String
Dim lCurrentAction As Long
Dim dOptions As Long
Dim fSendOptions As Integer, fCancelOptions As Integer
Edit'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim session As New notessession
Dim note As notesdocument
Dim ws As New notesuiworkspace
Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument
If (note Is Nothing) Then Exit Sub
Call DisplayGroupCalendarDlg(note, False)
End Sub
Delete
0S0E
Tools\Preferences...R
DialogMode
(Preferences)
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
End Sub
Lotus Product
Lotus Product
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_10
$ViewGlobalScript
$ViewGlobalScript_O
GroupCalendarCtlCalendarView
(GroupCalendar)|(GroupCalendar)?
CalendarView
GroupCalendarIntro
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
4`LV8
$TITLE
$Comment
$PublicAccess
$FrameSet
Group Calendar
Untitled
sidebar.gif
Welcome to the Notes Group Calendar. It provides an overview of a group's scheduled time and lets you easily display the individual calendars for each member in the group.
To display a person's calendar, simply click on their name.
To display the details of any busy block, just click on the block.
To display future schedules, scroll the time display using the scroll bar or flip to coming weeks using the buttons just to the left of the date/time header.
Note: Free and busy time information is only maintained for current and future times; the group calendar therefore always displays "No Info" for past times and days.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$$ScriptName
$Body
$PublicAccess
GIF89a[
16C8h@0
LS)4X
H$`v)
q01JR
`fW`Ut$
a"x /
BXj>t
oM[#Y
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
On Error Goto Trap
Dim s As New notessession
Dim db As notesdatabase
Dim lngReturn As Long
Set db = s.currentdatabase
Archive:
lngReturn = db.archivenow()
Exit Sub
Trap:
Print (Cstr(Err) & " " & Error$)
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
2hILiNF7Bw
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
out_STAMPS|out_STAMPS
Mail Picker
MailOutline
MailOutlineNotesView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Background
$Info
$$ScriptName
$Body
$PublicAccess
"Small Fonts
Mail Switcher
GIF89a
7`^8a_bb
___OOO///
!e!x,uTa
OpenCalendar_1TARGET="_top"
CalendarFS
Open Calendar frameset
OpenToDo_1TARGET="_top"
ToDoFS
Open To Do frameset
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
)a59b
R5dq{D
$Info
$$ScriptName
$Body
$PublicAccess
Lotus Product
Mail Title
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
$View?
Mail Title
NotesNavigatorNotesView?
Mail Picker?
Switcher
Mail Switcher?
NotesViewNotesPreview?
($Inbox)
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Hzv 2e>
$TITLE
$Comment
$PublicAccess
$FrameSet
Inbox
($Inbox)
Drafts
($Drafts)?
($Sent)?
All Documents
($All)
Archive
xxTitle
Open Archive
0S0E
xxMessage
No database has been specified, check archive settings.
ARCHIVESERVER
Archive Profile
ArchiveServer
ARCHIVEDBPATH
Archive Profile
ArchivePath
ARCHIVEDBPATH
ARCHIVESERVER
ARCHIVEDBPATH
xxTitle
xxMessage
0R7R
out_ARCHIVE?
ArchiveDBName
Archive Profile
ArchivePath
0S0E
ArchiveDBName
ArchiveDBName
0R5S6S8S9S11S12S
Archive
Trash
($Trash)
Trash
Discussion Threads
(Discussion Threads)|ThreadsH
Rules
Rules|Rules?H
Stationery
Stationery|Stationery?H
Other Folders
Other Views
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
^nW?$
$SiteMapList
GIF89aZ
34>./8$%,79D(+3
-1.!&"
).)&)&595(+(
141!"!\c8^d8
**%NNI
+++((('''
]h`xI0
4| 'rBd
,E%"q
E4B\[XO
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
New Memo
Subject
Subject
Subject
4S6S12S13S14S15S17S21S23S25S26S28S
wMemo
returnreceipt
wMemoOpen
Query_string
forward
wMemoOpen
13R24S
(Help)
MAIL_F_MEMO
0S0E
&Arial
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
On Event Querysave From Source Call Querysave
On Event Postmodechange From Source Call Postmodechange
On Event Postopen From Source Call Postopen
On Event Postsave From Source Call Postsave
On Event Queryclose From Source Call Queryclose
On Event Postrecalc From Source Call Postrecalc
On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Set cMemoObject = New UIMemoDocument
Call cMemoObject.Init(Source,Isnewdoc)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Call cMemoObject.QuerySave(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
Call cMemoObject.PostModeChange()
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
Call cMemoObject.PostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
Call cMemoObject.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Call cMemoObject.QueryClose(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Continue = cMemoObject.QueryModeChange(Source)
End Sub
'++LotusScript Development Environment:2:2:Click:1:8
The body of this message is encrypted and cannot be displayed by a browser client. Please reopen this message with a Notes Client or ask the sender for copy that is not encrypted.
tmpWebDisplayIfEncrypted
Discard ChangesK
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
1S2S3S
Save And Close
MEMO_DRAFT
0S0E
ActionInProgress
MEMO_DRAFT
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
0S0E
ActionInProgress
MEMO_DRAFT_FILE
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
0S1S2S
New Memo(
0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
0S0E
Reply with History
This document is truncated.
0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
0S0E
ISMAILSTATIONERY
tmpNewDoc
1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
_Move To Folder...
_Remove From FolderK
MEMO_SEND
0S0E
ActionInProgress
MEMO_SEND
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send and File
MEMO_SEND_FILE
0S0E
ActionInProgress
MEMO_SEND_FILE
0R1S
PostedDateh
IsMailStationery
5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
0S0E
ActionInProgress
MEMO_STATIONERYSAVE
0R1S
IsMailStationery
2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As Draft
MEMO_DRAFT
0S0E
ActionInProgress
MEMO_DRAFT
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Rename Stationery
xxERROR
No document is selected.
0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
0RR1S
0RS>
IsMailStationery
2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
0S0E
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
0R4S10S
PostedDateh
5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
0S0E
DeliveryInfo
xxTitle
0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim session As New notessession
Dim uiws As New notesuiworkspace
Dim collection As notesdocumentcollection
Dim noteUIEditDocument As notesuidocument
Dim database As NotesDatabase
Set noteCursorDoc = session.currentdatabase.createdocument
Set database = session.currentdatabase
Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
Set noteCursorDoc = collection.getfirstdocument
If Not noteCursorDoc Is Nothing Then
Set noteUIEditDocument = uiws.Editdocument(False, noteCursorDoc)
End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
The body of this message is encrypted and cannot be displayed by a browser client. Please reopen this message with a Notes Client or ask the sender for copy that is not encrypted.
tmpWebDisplayIfEncrypted
Discard ChangesK
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
1S2S3S
Save And Close
MEMO_DRAFT
0S0E
ActionInProgress
MEMO_DRAFT
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
0S0E
ActionInProgress
MEMO_DRAFT_FILE
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
0S1S2S
New Memo(
0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
0S0E
Reply with History
This document is truncated.
0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
0S0E
ISMAILSTATIONERY
1S2S3S4S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
_Move To Folder...
_Remove From FolderK
MEMO_SEND
0S0E
ActionInProgress
MEMO_SEND
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
This Agent requires build 164 & Server with a r5 Public NAB, you must resave all master holiday documents if created with 161.1 Also note: the APPTUNID item must match the UNID of the document in the public NAB. a resave will correct this if the document has been 'cut and pasted'EH41fL3
Welcome to Lotus Domino WebMail R5. Lotus Domino WebMail provides you with a simple way to access your Mail, Calendar and To Do list, all from your web browser. This screen provides you with an overview of the commonly used features. Click on these links to learn more.
<a href="#GettingAround">
Getting Around in Domino WebMail
</a><a href="#Using">
Using Mail
</a><a href="#Making">
Making the most of your Calendar
<BR></a><a href="#Managing"
Managing your To Do list
<BR></a><a href="#Setting">
Setting your Preferences
</a><a href="#How">
How to find out more anytime...
<a name="GettingAround">
Getting Around in Domino WebMail
</a>
Lotus Domino WebMail R5 makes it easy to move between your Mail, your Calendar and your To Do list. As you are viewing any of these three areas, you will see a Switcher graphic in the bottom left hand corner. By clicking on one of these three icons, you can move between your Mail, Calendar and To Do list quickly and easily.
Domino WebMail R5 also provides you with a green "Action Bar" above your views and documents. This interface gives you quick, context-sensitive access to the actions you need most often.
As you create and read documents, you will frequently see a "Go To..." option in the Action Bar. This provides you with a direct method of returning to your Mail Inbox, Calendar or To Do List with just one click, instead of having to use the back arrow in your browser to return to the desired location.
<a name="Using">
Using Mail
</a>
Reading your mail
With Domino WebMail R5, you can easily read your new mail or view messages stored in Folders. To see your new mail, click on "Inbox". Your new mail will be displayed with the newest messages displayed at the bottom of the listing. After you read your mail, you can use the Action Bar to choose a Reply option, you may Forward the message to someone else, delete it, or move it to a Folder. It is recommended that you file your important messages in Folders in order to find them easily later.
You can create new Folders by clicking on the "Folder..." Action Bar button and then select "Create Folder". From the dialog displayed, you can create new Folders and even create new Folders within other Folders. Once your Folder is created, you can add messages to them at any time by clicking "Folder" in the Action Bar and then selecting "Move to Folder...".
You can take any message and directly copy it into a Calendar Entry or To Do List item. Select a particular message and then choose "Copy Into..." from the Action Bar. Select the destination and Domino automatically brings up the appropriate page with the information copied over. Complete the form and save the document for later use in either your Calendar or To Do list.
Creating a Mail Message
There are four simple ways to create a new mail message in Domino Web Mail:
Memo
- Use this form to create a new message
Reply
- Use this form to reply to a message that you have received. This form will work only when you have selected a document to reply to.
Reply With History
- This is
similar to a Reply, except that a copy of the message being replied to will be automatically copied into your new message.
Forward
- Use this option to send the message to a new recipient
Before you send a message you must fill in the following information:
- The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
- Recipients who will receive a copy of the message, but are not usually required to take action on it.
bcc:
- Recipients who will receive a blind copy of this message. Other recipients in the "To:" and "cc:" fields will not see the names of people in this field.
Domino WebMail R5 gives you a rich text Java applet in which you can create the body of your message. After you have addressed the message, move your cursor into the applet and begin entering your text. Buttons at the top of the applet give you text formatting options, such as Bold, Italic and Underline as well as Indentation, Bullet and Left/Center/Right justification options. You also can select different text colors, font size and fonts from the list supported by your browser. You may also highlight any text within your message, click the "Create Link" button and enter in any Internet URL you wish. The highlighted text then becomes an active link that the recipient may click to be taken directly to that web site, providing they have the ability to do so.
Send a message by clicking the "Send" action bar button and then choosing "Send", "Send and Save", or "Save as Draft".
Send
- Sends the message directly without saving a copy.
Send and Save
- Sends the message and then stores a copy in your sent view.
Save as Draft
- Allows you to save a work in progress so that you can return to it later, complete the message and then send it.
<a name="Making">
Making the most of your Calendar
</a>
Using Calendaring and Scheduling
You can use Domino WebMail to organize your time, schedule meetings and handle other events. You can access your Calendar at anytime by clicking the Calendar icon in the switcher located at the bottom left of your screen. The left hand pane gives you a list of other Calendar related Views to select. As you create new entries, your Calendar view will expand to show the relevant information for each entry. You may see more detail about any entry at any time by clicking on it.
Scheduling Meetings
Domino WebMail R5 offers you powerful Scheduling capabilities, allowing you to schedule meetings with coworkers. You can create meetings at any time by clicking "Schedule a Meeting" in the Action Bar. This will take you to a page with three tabs, where you can enter information about the meeting you wish to schedule. The "Basics" tab has the Meeting times, the Subject, Location and Detailed description. The "Meeting Invitations and Reservations" tab is where you can select the names of those you would like to attend your meeting. After you have selected a list of Invitees, you can see if they will be available at the proposed time by clicking "Scheduler" in the Action Bar and then clicking "Check All Schedules". A dialog will appear showing the availability of the other Domino recipients and offer you choices if not everyone is available.
Creating other types of Events
Besides Meetings, you may also create Personal Appointments, All-Day Events, Reminders or Anniversary entries. You can create these directly from the Action Bar or you can choose the type of item you wish to create by selecting the entry type
<a name="Managing">
Managing your To Do List
</a>
Click the checkbox icon in the Switcher to go to your To Do list. You can use this feature to remind yourself of something that you need to do (Personal To Do), or you may assign another person(s) to do something for you (Group To Do). If you send a To Do item to another Mail user, or to several users, they will be able to notify you when they have completed the Task.
You can view your To Do list by the Due Date, the Status or the Category that you have assigned to it.
<a name="Setting">
Setting your Preferences
</a>
Your Mail and Calendar Preferences are automatically set for you with default settings. Click on the "Tools" button then choose "Preferences" to change your settings. The Preferences page is divided into sections. Click on the links located on the left hand side and then set your preferences on the right hand side of the page.
Mail / Basics -
Define the mail file owner and reply separator. Generally, the Mail File owner will be set for you and you will never need to modify this. It should be the name assigned to you by your Domino Server Administrator. It will appear in a hierarchical format, for example, "John Doe/Big Corporation". The reply separator defines how your reply text will appear to another user and helps your text stand out from other text within the message body.
Calendar / Freetime
- Here you can define how other people see your available freetime in your Calendar. You may wish to adjust this depending on your work schedule and how you like to make yourself available for meeting invitations from others. By default, all users on your Domino Mail system can see your freetime... if you want to limit the people who can see this information, enter the names of those you wish to have access to your freetime in the field provided.
Calendar / Entries -
Allows you to define a default meeting/appointment time and interval for your repeating anniversaries. Here you also define how Calendar invitations appear in your mail file. Generally, you can have your Calendar entries appear in your All Documents view as this view provides a quick way of locating All Documents in your Mail file. You can choose to have Invitations not saved in your Sent View if you wish.
Calendar / Autoprocess -
You can have your Domino Server automatically process meeting requests if you would like. Here you can choose to have all invitations automatically accepted, you can automatically process only those invitations from select users, or you can choose to have invitations automatically sent to another person. The default is to not automatically process any invitation.
Here you can also keep your Inbox free of processed meeting requests and replies to your invitations by clicking on the appropriate boxes.
Delegation / Mail -
Use your delegation options when you wish another person to have some form of access to your mail file. You have 4 options available related to Mail Delegation.
Option
^+]6P
Description
Read my mail and read my calendar
^+]6P
Domino gives the people in this field Reader access to your mail database so they can read your mail. Domino also gives them "Read public documents" privileges so they can read your calendar.
Read and send mail on my behalf and read my calendar
^+]6P
Domino gives the people in this field Author access and "Create documents" privileges in your mail database so they can send mail for you. Domino also gives them "Read public documents" privileges so they can read your calendar.
Read, send, and edit any document in my mail file
^+]6P
Domino gives the people in this field Editor access and "Create documents" privileges your mail database so they can edit mail for you. Domino also gives them "Read public documents" and "Write public documents" privileges so they can read your calendar
and
create calendar entries.
Delete mail and calendar entries
^+]6P
Domino gives the people in this field "Delete documents" privileges in your mail database so they can delete mail for you. These people
must
be listed in the "Read and send mail on my behalf and read my calendar" or "Read, send, and edit any document in my mail file" field. If the former, they can delete only messages that they create themselves; if the latter, they can delete any messages in the database.
Delegation / Calendar -
Some users would like other people to see their Calendar without being able to see the rest of their mail file. Here you define just that. You can specify that all users can read your Calendar, or specify a select list of people that can read your Calendar. Similarly, you can allow others to manage your Calendar (Create, Edit) by either choosing that everyone can manage your Calendar, or by entering in specific names that you wish to have this ability.
<a name="How">
How to find out more anytime
</a>
Throughout the product you will find Help Links to further explain what a particular feature offers you. For example, if you are in the Address dialog and do not understand how to find a name in an Address Book, you can click on the words "Start with:" to see a dialog box that provides more detailed help on that item.
<a href="#Top">
Go to the top
</a>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$View?
Mail Title
NotesNavigatorNotesView?
Mail Picker?
Switcher
Mail Switcher?
NotesView?
($Inbox)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
UL(IvyH
$TITLE
$Comment
$PublicAccess
$FrameSet
To Do Title?
NotesNavigatorNotesView?
To Do Picker
Switcher
To Do Switcher
NotesView?
($ToDo)|Tasks?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$PublicAccess
$FrameSet
GIF89a
@wY8Dpo
&Q QP
hxw B
c M(Be
BIB2+
#REE1
NdB"Qq
# lb` b
6 "G
zXuZV=
dOvc4
6qu)W
}^!o0
pIIds]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
DateToGoto
StartDateTime
StartDateTime
DueDateTime
DueDAteTime
NewStarTDateh
NewStartDAte
1S2S
CalendarFS
Calendar
DateToGoto
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
HrviZ
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
($Inbox)
($Trash)
Discard ChangesK
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
1S2S3S
Close
MEMO_CANCEL
4194304
0S0E
ActionInProgress
MEMO_CANCEL
0R1S
IsMailStationery
0S1S2S
Save And Close
MEMO_DRAFT
0S0E
ActionInProgress
MEMO_DRAFT
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
0S0E
ActionInProgress
MEMO_DRAFT_FILE
0R1S
PostedDateh
IsMailStationery
7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
ForwardK
0S0E
ISMAILSTATIONERY
tmpNewDoc
1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
Delete
0S0E
act_DELETE.GIF|act_DELETE?
MEMO_SEND
0S0E
ActionInProgress
MEMO_SEND
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send and File
MEMO_SEND_FILE
0S0E
ActionInProgress
MEMO_SEND_FILE
0R1S
PostedDateh
IsMailStationery
5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
0S0E
ActionInProgress
MEMO_STATIONERYSAVE
0R1S
IsMailStationery
2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As Draft
MEMO_DRAFT
0S0E
ActionInProgress
MEMO_DRAFT
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Rename Stationery
xxERROR
No document is selected.
0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
0RR1S
0RS>
IsMailStationery
2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
0S0E
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Reply\Reply to Sender
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cMemoObject.ReplyToSender()
End Sub
act_REPLY.GIF|act_REPLY?
Reply\Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cMemoObject.ReplyToAll()
End Sub
act_REPLY.GIF|act_REPLY?
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_REPLY.GIF|act_REPLY?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
0S0E
DeliveryInfo
xxTitle
0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
0R1S
MergeFlag
MEMO_ISSTATIONERY
0R1S
PostedDateh
IsMailStationery
5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim session As New notessession
Dim uiws As New notesuiworkspace
Dim collection As notesdocumentcollection
Dim noteUIEditDocument As notesuidocument
Dim database As NotesDatabase
Set noteCursorDoc = session.currentdatabase.createdocument
Set database = session.currentdatabase
Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
Set noteCursorDoc = collection.getfirstdocument
If Not noteCursorDoc Is Nothing Then
Set noteUIEditDocument = uiws.Editdocument(False, noteCursorDoc)
End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Send Tracking RequestK:
(SendTrackingRequest)
0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
0R4S10S
PostedDateh
5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
New Memo(
0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
0S0E
Reply with History
This document is truncated.
0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Schedule a Meeting
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=3"
0R3S4S5S6S
act_scheduler.gif|act_scheduler.gif?
New\AppointmentK
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=0"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\AnniversaryK
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=1"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Reminder
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=4"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Event
Notes
CSDocType
Appointment
3S4S6S12S13S19S20S
0R1S2S
path"
/Appointment?OpenForm&Type=2"
0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Complete'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Folder\Create Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
0S0E
act_FOLDER.GIF|act_FOLDER?
Save As Stationeryr
ActionInProgress
&h00000100&
IsMailStationery
1S2S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
tmpDisplayDate_PreviewTime/date memo was created or mailed.
tmpDisplayDate_Preview
tmpAlarmSounds
Path_Info
Path_Info
Query_String
Query_String
SignatureOption
DialogMode
DialogMode
Preference
User configuration
bg_DIALOGBAND|bg_DIALOGBAND
This mail file belongs to
xxNO_OWNER
No owner has been specified for this mail file
0S0E
Owner
xxNO_OWNER{
0R3S4S5S
OwnerFull hierarchical user name of mailfile ownerz
Owner
Use hierarchical name, e.g. John Doe/Organization.
SpellCheckEnables automatic spellchecking before message is mailed
Automatically check mail messages for misspellings before sending|1
SpellCheck
FormatRepliesEnables using a formatted reply string
Formatted Replies with an offset character|1
FormatReplies
OffSetCharStyle of formatted reply string
>|1<|2<<|3>>|4
OffSetChar
Basics
Your letterhead will appear at the top of your outgoing mail messages.
Letterhead
DefaultLogoDisplays choice in header of messages
Bouncy Earth|StdNotesLtr1Buck Rogers Mail|StdNotesLtr2Computer Chip|StdNotesLtr3Decco|StdNotesLtr4Falling Spheres|StdNotesLtr5Frank Lloyd|StdNotesLtr7From The Desk|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometry |StdNotesLtr9Gray Gradient with Lines|StdNotesLtr13Green and Yellow Diamond|StdNotesLtr14Leaves|StdNotesLtr6Marquee|StdNotesLtr34Metal Plate|StdNotesLtr15Pencil and Grid|StdNotesLtr16Plain Text|StdNotesLtr0Pony Express|StdNotesLtr17Post Mark|StdNotesLtr33Primitive|StdNotesLtr20Purple Geometry|StdNotesLtr18Slashed Lines with Globe|StdNotesLtr21Squiggle with Backdrop|StdNotesLtr22Squiggly Line|StdNotesLtr23Tacks|StdNotesLtr24Tape|StdNotesLtr25Teal and Yellow Lines|StdNotesLtr26Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots|StdNotesLtr30Triangles|StdNotesLtr29Wild Confetti|StdNotesLtr32
Allow only these people view my Free time information:
AllowBusyAccessRequest free time infomation: this is independant of delegation access
Free Time
EnableAlarmsAlarms generate audio or mail reminders
Enable alarms|1
EnableAlarms
1S2S
EnableAlarms
1S2S
Default alarmsx
bg_DIALOGBAND|bg_DIALOGBAND
The following settings will be used by default when creating a new Calendar entry.
SetAlarmAppointment
Appointments/Meetings|1
AppointmentLead
AppointmentLead
3S4S
AppointmentLead
minute(s) in advance
SetAlarmReminder
Reminders|1
ReminderLead
ReminderLead
3S4S
ReminderLead
minute(s) in advance
SetAlarmEvent
Events|1
EventLead
EventLead
3S4S
EventLead
day(s) in advance
SetAlarmAnniversary
Anniversaries|1
AnniversaryLead
AnniversaryLead
3S4S
AnniversaryLead
day(s) in advance
SetAlarmTask
To Do|1
.,$///:
TaskLead
TaskLead
3S4S
TaskLead
day(s) in advance of due date
Default sound:
EnableAlarms
1S2S
tmpAlarmSounds
0S0E
AlarmSound
tmpAlarmSounds
Alarms
When displaying times in the Calendar view ...
Start displaying times at
.,$ //:
CalendarTimeSlotStart
Stop displaying times at
.,$ //:
CalendarTimeSlotEnd
Each time slot lasts
CalendarTimeSlotDuration
15 minutes|1530 minutes|3060 minutes|60
These settings do not affect the display of times associated with calendar entries.
Display
AutoProcessMeetings
1S2S
AutoProcessType
AutoProcessType
3S4S6S8S
AutoProcessType
Do not automatically process meeting invitations|DAutomatically process meeting invitations from all users|0Automatically process meeting invitations from the following users|2Delegate meeting invitations to the following person|1
AutoProcessType
1S2S
AutoprocessUserList
AutoProcessType
1S2S
Size=40
AutoProcessForwardTo
AutoRemoveFromInbox
Remove Meeting invitations from my Inbox after I respond to them|1
PreventRepliesFromInbox
Don't show Meeting replies in my Inbox|1
Autoprocess
TaskFollow
Always show current To do's on today's calendar|1
To Do
Calendar
Calendar
Allow the following people to...x
bg_DIALOGBAND|bg_DIALOGBAND
Read Mail, Calendar and To Do documents
ReadMailThese users will have read access to mail and calendar entriesz
ReadMail
Read Mail, Calendar and To Do documents, and send Mail on my behalf
WriteMailThese users can compose messages and will have read access to mail and calendar entriesz
WriteMail
Read, send and edit any Mail, Calendar and To Do document
EditMailThese users can compose messages, edit messages you write, and will have read access to mail and calendar entries
EditMail
Delete Mail, Calendar and To Do documents (*see Help for details)
DeleteMailThese users can delete documents they authored, or any document if they are included as an editor
DeleteMail
For administrative purposes, the following people and servers have been given managerial or designer access to your Mail database.x
bg_DIALOGBAND|bg_DIALOGBAND
.,$, , :
OtherUsers
0S0E
OtherUsersThese entries are managers, designers, or user with no access specified
Mail Delegation
Read Access
bg_DIALOGBAND|bg_DIALOGBAND
PublicRead
3S4S
PublicReadAllows users to view calendar on a global basic
Anyone can read my Calendar|1Allow only the following people to read my Calendar|0
PublicRead
1S2S
ReadCalendarThese uses can read calendar entries
Author and Editor Accessx
bg_DIALOGBAND|bg_DIALOGBAND
PublicWrite
3S4S
PublicWriteAllows users to manage calendar on a global basic
Anyone can create and edit entries in my Calendar|1Allow only the following people to create and edit entries in my Calendar|0
PublicWrite
1S2S
WriteCalendarThese uses can manage calendar entries
Calendar Delegation
Delegation
Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
0S0E
$AvailableDays
$PublicAccess
$CSVersion
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Categori_ze0
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
39yp_d.
$HTMLDocumentStyles
$DialogMode
$Info
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$SignatureOption
$SignatureOption_O
$$Signature_2
$Signature_2_O
$$Signature_1
$Signature_1_O
$$Signature
$Signature_O
DefaultDuration
AutoAnniversaryRepeat
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
AppointmentLead
ReminderLead
EventLead
AnniversaryLead
TaskLead
CalendarTimeSlotStart
CalendarTimeSlotEnd
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
Lotus Product
OBJECT
(ChangeRepeat)
You are modifying a recurring entry.
How would you like these changes to be applied to the related entries?
tmpChangeWhich
Just this instance|0All instances|1This instance and all previous instances|2This instance and all future instances|3
New Button
Need a newer version of Notes to execute this button.
0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackSpecify first day backz
FirstDayBack
BookBusyTimeCreate a calendar entry with busytime enabled
Book Busytime for these dates|1z
BookBusyTime
People who check your calendar will see that you are unavailable between these dates.
Dates
This is the default message which will be sent while you are away. To specify a special message for replying to certain people, use the "Special Message" tab.
Whomever
Subject:
is out of the office."
1S2S
GeneralSubjectz
GeneralSubject
FirstDayOut
FirstDayBack
I will be out of the office starting
FirstDayOut
and will not return until
FirstDayBackK
3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
DaysOut
DaysOut
I will respond to your message when I return.
GeneralMessagez
GeneralMessage
Out of Office Message
This message will only be sent when you receive mail from the people listed below.
To:
SpecialPeople
SpecialPeople
Subject:
is out of the office."
1S2S
SpecialSubjectz
SpecialSubject
FirstDayOut
FirstDayBack
I will be out of the office starting
FirstDayOut
and will be returning on "
FirstDayBackV
3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
DaysOut_1
DaysOut_1
SpecialMessage
SpecialMessagez
SpecialMessage
Special Message
.,$///:
ExcludeInternetEmail
Do not automatically reply to mail from Internet addresses.|1
Do not automatically reply to mail from these people or groups:
IgnoreFromList
IgnoreFromListz
IgnoreFrom
Do not automatically reply to mail which is addressed to these groups:
IgnoreSend
IgnoreSendz
IgnoreSend
Do not automatically reply if the subject contains these phrases.
IgnoreFrom
IgnoreSubjectPhrase
IgnoreFrom_1
Place each phrase on a new line.
Phrases are case sensitive, and must match exactly.
Exceptions
CurrentStatus
1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call OfficeControl.ToggleEnableDisable()
End Sub
Lotus Product
New Button
Need a newer version of Notes to execute this button.
0S0E
Enable
CurrentStatus
1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call OfficeControl.ToggleEnableDisable()
End Sub
Lotus Product
New Button
Need a newer version of Notes to execute this button.
0S0E
Disable
SaveOptions
SaveOptions
0T1S
SaveOptions
0R2RT7RTT12RT16RT
OK
SaveOptions
SaveOptions
SaveOptions
Cancel
FirstDayOut can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
0R1S
@TextToTime does not always recognize as Text so it is
0R1S
converted to Text then to Time
0R1S
DateValue
FirstDayOut
0R1S2S
DateValue
DateValue
DateValue
0R7S12S17S19S21S
dateFirstDayOut
dateFirstDayOut
FirstDayBack can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
0R1S
@TextToTime does not always recognize as Text so it is
0R1S
converted to Text then to Time
0R1S
MUST SET THE TIME COMPONENT TO 12:00:00AM in order for
0R1S
an calendar entry to be properly added..
0R1S
DateValue
FirstDayBackV
0R1S2S
DateValue
DateValue
DateValue
0R7S12S17S19S21S
dateFirstDayBackz
dateFirstDayBack
Categori_ze:
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
7S12S
CancelB
SaveOptions
Enable agent
CurrentStatus
CurrentStatus
1S3S
Notified
0RR1S
FirstDayOut
FirstDayOut
0R1S
FirstDayBack
FirstDayBack
0R1S
title
Lotus Notes Out of Office
0R2S
You must indicate when you are leaving and when you will be back.
0R2S
Your return date must be after today's date.
0R2S
Your return date cannot be earlier than the leave date.
0R2S
Please ask a Manager or Designer of this database to enable the agent for you.
0R2S
The Out of Office agent was not enabled.
0R2S
The Out of Office agent is now enabled. When people send you mail between
FirstDayOut
and
FirstDayBackV
it will inform them of your absence.
0R2S3S4S8S9S10S11S15S16S
Please ask a Manager or Designer of this database to disable the agent for you.
0R2S
Your Out of Office agent is still enabled.
0R2S
msg10
NOTE: If you created an Out of Office calendar entry, you should adjust your Out of Office entry dates to reflect your actual return date.
0R2S
msg11
Your Out of Office has been disabled.
0R2S
CurrentStatus
FirstDayOut
FirstDayBack
Validation Error
You must indicate when you are leaving and when you will be back.
DateFirstDayBack-
Validation Error
Your First Day Back is in the Past. The Out of Office agent will not be enabled.
Set folder = db.getview(note.getitemvalue("CurrentFolders")(0))
Call folder.remove()
End If
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
window.opener.parent.frames[1].location.reload();
window.close();
(wFolderCreateSave)
(wFolderCreateOpen)
FolderCreate
SaveOptions
folderlist
<br>
New Folder
Enter new folder name here.
To nest the new folder in an existing folder, enter the full path
using "\" as the separator. (e.g. Existing Folder\New Folder)
FolderNamez
size="40"
<br>
Current Folders
You can choose an existing folder in which to nest the new folder. Choose from the list below, and click "Begins With" to initialize the new folder name.
CurrentFolders
CurrentFolders
folderlist
0S0E
if(form.CurrentFolders.selectedIndex != -1)
for (var i=0; i < form.CurrentFolders.options.length; ++i)
if (form.CurrentFolders.options[i].selected)
{
var selection = form.CurrentFolders.options[i].value;
alert(selection);
New Button
Need a newer version of Notes to execute this button.
javascript:alert('Select which names can see your available free time. None allows all.')
javascript:alert('Select which names can see your available free time. None allows all.')
Only the following users can request my free time information:
AllowBusyAccess
Freetime
Freetime
Freetime
Calendar - AutoProcess
AutoProcessMeetings
1S2S
AutoProcessType
AutoProcessType
3S4S6S8S
AutoProcessType
Do not automatically process meeting requests|DAutoprocess meeting requests from all users|0Autoprocess meeting requests from the following users|2Forward meeting requests to the following person|1
AutoProcessType
1S2S
Size=40
AutoprocessUserList
AutoProcessType
1S2S
Size=40
AutoProcessForwardTo
AutoRemoveFromInbox
Remove event requests from my Inbox after I respond to them|1
PreventRepliesFromInbox
Prevent event replies from appearing in my Inbox|1
Autoprocess
Autoprocess
Autoprocess
Calendar - Entries
Defaults
Appointment/Meeting time duration:
DefaultDuration
DefaultDuration
DefaultDuration
3S4S5S6S7S8S9S10S12S
DefaultDuration
(minutes)
Anniversary yearly repeat:
.,$///:
AutoAnniversaryRepeat
AutoAnniversaryRepeat
AutoAnniversaryRepeat
3S4S5S6S7S8S10S12S
AutoAnniversaryRepeat
years
PreventAll
Display calendar entries in All Documents view|1
PreventSent
Display meeting invitations in Sent view|1
Entries
Entries
Entries
Delegation - Mail
PublicRead
1S2S
The following people/groups can:
Read my mail and read my calendar:
ReadMailz
ReadMailsize=40
Read and send mail on my behalf and read my calendar:
WriteMail
WriteMailsize=40
Read, send, and edit any document in my mail file:
EditMailz
EditMailsize=40
Delete mail and calendar entries
(allowed for those who can send or edit mail)
DeleteMailz
DeleteMailsize=40
*Other (Designer or Manager)
.,$, , :
OtherUsers
0S0E
OtherUsers
*These entries cannot be modified from this dialog
Delegation - Calendar
Calendar Read Accesss
PublicRead
3S4S
PublicRead
Everyone can read my calendar|1Only the following people/groups can read my calendar|0
ReadCalendar
Calendar Create/Edit Access
PublicWrite
3S4S
PublicWrite
Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
PublicWrite
1S2S
WriteCalendar
Calendar
Calendar
Calendar
Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
0S0E
$AvailableDays
$PublicAccess
$CSVersion
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close<
0S0E
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S
act_save.GIF|act_CSSAVE?
Cancel
0S0E
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S3S4S
act_DELETE.GIF|act_DELETE?
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close<
0S0E
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S
Cancel
0S0E
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$$Script_O
$$ScriptName
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
DefaultDuration
AutoAnniversaryRepeat
$Body
$V5ACTIONS
$ACTIONS
parentform = window.opener.document.forms[0]
thisform = document.forms[0]
var isFirstLoad = document.location.search.indexOf("&Seq=") == -1;
if (isFirstLoad) {
if (parentform.OrgRepeat.value == "") {
// We have not been here before; copy the startdate value
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
$Subscription
$HLMLastServer
.,$ //:
$HLMLastChecked
.,$, , :
$NoPurge
.,$, , :
$HLType
Mail Subscription
xxDisabled
Disabled
1S2S
$HlDisabled
xxDisabled"
0R2S3S4S6S7S8S10SDispDisabled
MainTable
MainTable
Name
Subscription name:
Enter a subscription name
$HLTitle
Retrieval
$HLType
1S2S
Get:
$QueryType
All incoming mail | allIncoming mail that matches any checked item: | sel
QueryType
QueryType
CritSentOnlyToMe
Sent only to me|1
CritSentDirectlyToMe
Sent directly to me (I am explicitly listed in the "To:" field)|1
CritHighPriority
High priority or importance |1
CritReturnReceipt
A return reciept is requested|1
CritToDo
To Dos assigned to me|1
CritToDoComplete
Completed To Dos|1
CritMeetInvite
Meeting invitations|1
CritMeetResponse
Meeting responses|1
CritFrom
From:|1
CritFrom
1S2S
CritFromNames
Enter the fully qualified name. (ex. "John Doe/Acme/Sales/US"). Separate multiple names with a comma.
Enablement
$HLEnabled is the old enabled flag with a value of either 1 or 0. For UI simplicity, it was changed to $HLDisabled with a possible value of either 1 or null
(.txt)